program Pi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 n0, n, i: integer;
 x, y, p : real;
 fout:textfile;

begin
  assignfile (fout, 'output1.txt');
  rewrite (fout);
  randomize;
  n0:=0;
 n:=0;
 for i:= 0 to 10000000 do
 begin
  x:=2*random;
 y:=2*random;
 p:=4*n0/n;
  if ((x-1)*(x-1))+((y-1)*(y-1))<=1 then
  n0:=n0+1;
  n:=n+1;
  p:=4*n0/n;
  if (i mod 10000 = 0) then

  writeln ( fout, p:0:10);

  end;
   closefile (fout);
   readln;
end.
